home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / writions / evol202a / multtwo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-28  |  590 b   |  23 lines
  1.   Program MultTwo;
  2.     {This program reads in two numbers and prints the product}
  3.       Uses Multiply;
  4.       Var
  5.         FirstNumber : Integer {The first number};
  6.         SecondNumber : Integer {The second number};
  7.         MyResult : Integer {The answer};
  8.     begin
  9.       readln(
  10.         FirstNumber,
  11.         SecondNumber);
  12.       MyResult := MultiplyTwoNumbers(
  13.         FirstNumber,
  14.         SecondNumber);
  15.       writeln(
  16.         'The first: ',
  17.         FirstNumber,
  18.         ' The Second: ',
  19.         SecondNumber,
  20.         ' The Product: ',
  21.         MyResult);
  22.       end.
  23.